unit HistViewFormUnit; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  Menus, ActnList, ComCtrls, DataHistSystm;

type

  { THistViewForm }

  THistViewForm = class(TForm)
    HistViewActions: TActionList;
    HistViewStatusBar: TStatusBar;
    HistViewMainMenu: TMainMenu;
  private
    { private declarations }
    PrjHistory: TPrjDataHistory;
  public
    { public declarations }
    procedure SetHistDB(Hist_DB: TPrjDataHistory);
  end;

var
  HistViewForm: THistViewForm;

implementation

{ THistViewForm }

procedure THistViewForm.SetHistDB(Hist_DB: TPrjDataHistory);
begin
  PrjHistory := Hist_DB;
end;

initialization
  {$I histviewformunit.lrs}

end.

